Indiabizclub.com : Alliance & Partner

<%@ Language=VBScript %> <% Server.ScriptTimeout = 3000 SessionID = Request.QueryString("SessionID") Dim iPageSize 'How big our pages are Dim iPageCount 'The number of pages we get back Dim iPageCurrent 'The page we want to show iPageSize = 20 If Request("page") = 0 Then iPageCurrent = 1 Else iPageCurrent = CInt(Request("page")) End If set product = server.CreateObject("adodb.recordset") product.cursorlocation=aduseclient product.PageSize =iPageSize dim productsql productsql = "select url,company_name,product_services from tbl_member_reg a where url <> '' and url Is Not Null and flag='Y' and industry_id="&trim(request("industryid"))&" order by display,reg_code asc" product.Open productsql, myconn, adOpenStatic, adLockReadOnly, adCmdText %> Indiabizclub.com : Alliance & Partner

Home | Overview | Sitemap | Feedback | FAQs

<% if Request.QueryString("SessionID") = "" then %> Login Signup <% Else %> Logout My Bizclub <% End If%>

<%=rdate%>

<% if product.eof then else totalcount = product.recordcount iPageCount = product.pagecount my=(ipagecount)\ 20 ' If the request page falls outside the acceptable range, ' give them the closest match (1 or max) If iPageCurrent > iPageCount Then iPageCurrent = iPageCount If iPageCurrent < 1 Then iPageCurrent = 1 product.AbsolutePage = iPageCurrent iRecordsShown=0 %> &name=<%=PDecode(Request("name"))%>" method="post">

Member Websites >> <%=Trim(Request("name"))%>
Total records - <%=totalcount%> Page <%=iPageCurrent%> of <%=ipagecount%>	<% if ipagecount > 1 then %> <% if iPageCurrent > 1 then %> &name=<%=PDecode(Request("name"))%>">Previous <% End If if CInt(iPageCurrent) <> CInt(ipagecount) then %> &name=<%=PDecode(Request("name"))%>">Next <% End If %> <% End If %> <% if ipagecount > 1 then %> Jump to <% End If %>

<% WHILE NOT product.eof and iRecordsShown < iPageSize %> <% product.movenext iRecordsShown=iRecordsShown+1 wend product.close set product=nothing myconn.close set myconn=nothing 'End of program %>


<% strURL = Trim(product("url")) If left(lcase(strURL),7) <> "http://" Then strURL = "http://" & strURL End if %> <%=strURL%>
<%=Pcase(product("company_name"))%> <%=product("product_services")%>

&name=<%=PDecode(Request("name"))%>" method="post">

Total records - <%=totalcount%> Page <%=iPageCurrent%> of <%=ipagecount%>	<% if ipagecount > 1 then %> <% if iPageCurrent > 1 then %> &name=<%=PDecode(Request("name"))%>">Previous <% End If if CInt(iPageCurrent) <> CInt(ipagecount) then %> &name=<%=PDecode(Request("name"))%>">Next <% End If %> <% End If %> <% if ipagecount > 1 then %> Jump to <% End If %>

Top

<% end if %>